﻿Imports Forecast.Logica.Servicios
Imports Forecast.Logica.Modelos
Public Class InformacionUser
    Inherits System.Web.UI.UserControl
    Private Shared _servEntidades As ServEntidades
    Public Usuario As Usuario

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Usuario = Session("usuario")


        If (Usuario IsNot Nothing) Then
            lblNombreUsuario.Text = Usuario.Name
        End If

        If Not Page.IsPostBack Then
            CargarEntidadesUsuarios()
        End If
    End Sub
    Protected Sub LnkCerrarSesionClick(sender As Object, e As EventArgs) Handles lnkCerrarSesion.Click
        Session.Clear()
        Session.Abandon()
        Response.Redirect("~/IniciarSesion.aspx")
    End Sub
    Private Sub CargarEntidadesUsuarios()
        _servEntidades = New ServEntidades()
        Usuario = Session("usuario")

        Dim TBEntidad = _servEntidades.SearchEntidades(Usuario.IdUsuario)  '# DEJAR AÑO PARAMETRIZADO

        DrEntidadLegalUsuario.DataTextField = "DesEntity"
        DrEntidadLegalUsuario.DataValueField = "IdEntityF"
        DrEntidadLegalUsuario.DataSource = TBEntidad
        DrEntidadLegalUsuario.DataBind()
    End Sub

    Protected Sub DrEntidadLegalUsuario_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DrEntidadLegalUsuario.SelectedIndexChanged
        Session("IdEntidad") = DrEntidadLegalUsuario.SelectedValue
        Session("ActualizarListado") = True
        ' Response.Redirect("~/Formularios/listado.aspx")
    End Sub
End Class